home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / try_qb / colors.bas (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1989-12-04  |  1KB  |  21 lines
  1. ColorVal
  2. PaletteVal
  3. BackGroundVal
  4. Pause
  5.  Draw three boxes and paint the interior of each
  6.  box with a different color:
  7. Press ESC to end."
  8. Press any other key to continue.
  9.  Restrict additional printed output to the twenty-third line:
  10.  PaletteVal is either one or zero:
  11.  Set the background color and choose the palette:-
  12. Background =
  13. Palette ="
  14.  Wait for a keystroke.
  15.  Exit the loop if both palettes have been shown,
  16.  or if the user pressed the ESC key:
  17.  Exit this loop if all sixteen background colors have been
  18.  shown, or if the user pressed the ESC key:o
  19.  Restore text mode and
  20.  eighty-column screen width.    
  21.